MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
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AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


———— 
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| sf LLE*® 1D*eSMGDISINP . 

SSSSSSSS MM MM GGGGGGGG DDDDDDDD IIII11 SSSSSSSS IIIII1 NN NN PPPPPPPP $ 
SSSSSSSS MM MM GGGGGGGG DDDDDDDD III111 SSSSSSSS III11I NN NN PPPPPPPP ; 
SS MMMM MMMM GG DD DD Il Ss II NN NN PP pp ; 
ss MMMM MMMM GG DD DD II $$ II NN NN PP PP 3 
SS MM MM MM GG DD DD Il ss II NNNN NN PP pp 3 
$s MM MM MM GG DD DD II Ss II NNNN NN PP PP 3 
SSSSSS MM MM GG DD DD Il SSSSSS II NN NN NN PPPPPPPP 3 
SSSSSS MM MM GG DD DD II SSSSSS II NN NN NN PPPPPPPP F 
SS MM MM GG GGGGGG DD DD II $s II NN NNNN PP 3 

SS MM MM GG GGGGGG ODD DD II Ss II NN NNNN PP 3 

SS MM MM GG GG DD DD Il $s II NN NN PP ve 3 

SS MM MM GG GG ODD DD II ss II NN NN PP " 3 
SSSSSSSS MM MM GGGGGG DDDDDDDD IIIIII1 SSSSSSSS IIIII1 NN NN PP awe 3 
SSSSSSSS MM MM GGGGGG DDDDDDDD IIII11 SSSSSSSS III111 NN NN PP ead : 
LL I11I1 SSSSSSSS 3 
LL HII11I SSSSSSSS F 
LL I] SS ; 
LL II SS 3 
LL I] SS 3 
LL II $s | 3 
LL Il SSSSSS 3 
LL I] SSSSSS 3 
LL Il SS | 3 
LL II Ss ; 
LL II SS 3 
LL I] SS 3 
LLLLLLLLLL IN1111 SSSSSSSS 3 
LLLLLLLLLL HII! SSSSSSSS : 
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ISPLAY ey - Input support routines’ 
ISPLAY_YNP . 
Pe 


6 XTITLE shettsl 
AT = MT S026" ! File: SMGDISINP.B32 Edit: STAN1026 


MODULE SMG$$ 


BEGIN 


MOSSES ESSLSLOSE ESTE EEE ESTEE TSE E ECCT ECC CCC CPSP CCC SPCC C CCST CCC CCC CCP ceca a sy 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


& 
® 
® 
ia 
y ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED. OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. . 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. . 
*® 
® 
*® 
* 
* 
* 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee, OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA 


LRA AREER AAR AERA AERA EERE EEE AAAS 
' 


++ 
FACILITY: Screen Management 


ABSTRACT: 

The procedures in this module act as interfaces between the 
virtual displays and pasteboards and associated data structures, and 
the keyboard input side of SMG. These routines are called to pass 
information about changes to the physical screen that have been 
brought about by input-related activities. 


ENVIRONMENT: User mode, Shared Library routines. 


SOSCOSCOSOSCOCOOSOSSSSSSSSSOSCOCCOOOCOOOOOCOOCOOOCOOOOOCOOoOoOOoOSoSoOo 


NOU E WN OOO NO UE WN OOO NAME WN (OO ODNOUES WN (OO ONAUE WN -OOONOUE WN 
ee ee ae ce ce ee a ee ce ee ee ec ce a a ce cc ec ed a a eed ed ed od 


Re Be ee Be Oe Oe Oe Be Be Se Be Se Be BH Be Se Se Bete Ge Se Oe Be Se Se Oe Se Be Se Be Se Se Se Se Ge Se Se Oe Se Be Oe ee Se Oe Se BH Oe Se Oe Oe OH Se Se Oe Se ee 


SOOSCSOSCOSOCOCSCOOSOOSCOSOOOCSOSOSOSOSOSOSOSOSOSOSOSOOCOSOSOOOOOOOSOOOOOOOOOOOOoOOoO 


PAA BS BB BEBE EE BANANA ANNI Ron PONIPONO POND 2 2 Oe ee 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
4 
rh AUTHOR: R. Reichert, CREATION DATE: 9-Mar-1983 
ri MODIFIED BY: 
47 ' 1-001 - Original. Skeleton for future code. RKR 9-Mar-1983 
048 ‘ 1-306 - Correct names of data structures and macros. PLL 15-Mar-1983 
049 ' 1-003 - Add SSMGSVALIDATE “ARGCOUNT invocations. RKR 30-Mar-1983. 
050 ' 1-004 = Fles of~the routines. RKR 11-APR-1983. 
051 ' 1-005 - eee *SnosscEy= "PAS TEBOARD 1D. RKR 14-APR-1983. 
O26 ! 1-008 - fap into si RKR 26-APR-198 
05 ! 1-007 - pe SMG $5 t * PHYSICAL CURSOR. RKR 26-APR -1983 
054 ! 1-008 - eter gebugg' ng SMG$$REPORT_ CHANGE XxxxXK., RKR 29-APR-1983 
055 ' 1-009 = Take advan age xc of some new Foutines. 
056 : RKR 15-MAY-1 
057 i 1-010 = Delete external references to DD_ structures and counts == no 


eee ee 


ee} 0058 1! 
oo 0059 1} 
; 60 0060 1! 1-011 
; §) 0061 1! 
ro pOb¢ ' 7 
Zoe 0063 1 ! 1-012 
> 64 0064 1! 
; 0065 1! 
; 66 0066 1 ! 
fee 0067 1 ! 1-013 
; 668 0068 1 | 
; «66 0069 1 ! 1-014 
; #& 0070 1! 
pnt 0071 1 | 1-015 
Bag 1! 
Pare + 0073 1! 1-016 
; 0074 1! 
ae 0075 1! 1-017 
3. £§ 0076 1! 
wae é 0077 1! 
i: 0078 1 | 
fT 0079 1! 
; §0 0080 1! 
oe) 0081 1 | 
; 6882 0082 1! 
i= oF 0083 1! 
: = =—84 0084 1! 1-018 
3; 85 0085 1 | 
; 86 0086 1! 1-019 
ci. or 0087 1! 
: «88 0088 1! 1-020 
; ww 0089 1! 
; 9 0090 1! 
; 0091 1! 1-021 
; 0092 1! 
; 3 0093 1 | 1-022 
; 0094 1! 
; 0095 1! 
; 0096 1! 
i 0097 1 | 1-023 
Ere «| 0098 1! 1-024 
; Ww 0099 1! 1-025 
: 100 0100 1! 1-026 
3; ie 0101 1! 
; 102 0102 1 i+ 
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AX-11 Bliss- 


Longsr needs 93°" available). 
RKR 20-MAY=-1 

speck ta’ butt tields in PBCB which tell SMG$S$MIN_UPD what part 
et. “a buf 8 grnanged . 


Inform ot That the physical cursor position is unknown. 
Fix bug wherein NUM_CHARS was treated as the address of 

a longword instead of a word. 

STAN 28=may-1983. 

Further de 4g ing of SMGSSSET_PHYSICAL_CURSOR. 


RKR 27=MAY- . 
‘om te PBCB_W_WIDTH 


enged row and changed_col o phe arguments to 
CMCESREPO T_CHANGE_REPLAC PLL 1 
Rearrange order ot ~argunents to SMCSSSE T -PHYSICAL_CURSOR, and 
add two new erqune ts. PLL 21-Jun-198 
In SMGSSSET_PH SICAL. CURSOR: 
Validate right number of arguements. 
eee spay ae some code so that some computations are 
don a By ptional Barrens” are present. 
In SMGSSMOVE.. TEXT “TO. SCREEN 
Optimize some Code path o achieve same optimizations 
as in SMGSSMOVE_TEXT_TO SWINDOw BUF (in SMG ISOUT.B32). 
cor ougnout - By guitch to data structure named desiacak tenn. 
Cleanup sauitan sequence fe SMGS$SET =DUYSICAL CURSOR, based on 
how the input routines call it. PLL 27- 
Pass ae device type to SMGS$$SET CURSOR ABS_R4 if the 
device is a foreign terminal. PLL 2-Aug-1983 
Add logic to SMG$$SET _PHYSICAL_ CURSOR to set serett ita. region 
to full screen if we are about to do input from a VT1 
RKR 3-AUG-1983. 
Speed * SMGS$SET_PHYSICAL_CURSOR by looking at occluded 
bit in PP to bypass occlusTon tests. RKR 12-SEP-1983. 
Fix the wa SSET_PHYSICAL_CURSOR calculates remaining columns 
available for input.” No properly recognizing where the virtual 
dis Play is pasted. 
RKR 14=DEC=19 
Minor changes for TERMTABLE support. STAN 22-JAN-1984 
More. STAN 14-Feb-1984. 
STAN 7-Mar-1984. Royee report_change routines to file SMGPRVINP.B32 
STAN 19-Mar-1984. Fix bug in remaining columns calculation for 
unoccluded virtual oth not pasted to column 1 of pasteboard. 


9 
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(1) 


a 
1-0 


Be BeBe Oe Be Be Be Be Oe Oe BH Se Se SESH Se Be Se Se Se Se Ge Se Se FHS Se Se Se Se Se Se Se Oe Oe Se Se Se SH Se SH Oe SHS Se Os Oe Oe Oe Oe Oe Oe Oe SESH Seas 
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1-02 Ce eae oe 1e8b-1986 13:0 USMGRTL SRE ISMGDISINP. B82: 1 ae 33 


6 Declarations 4 9:42 
> 1046 9193 1 ZSBTTL ‘Declarations’ 
; 6309 0104 | 
: 196 818? 1 ! SWITCHES: 
; 19 1 $ =. 
; 108 0107 1 
; 109 0108 1! 
; 110 0109 1 ! LINKAGES: 
s 33% 0110 1! 
: oT 0111 1! NONE 
; 73 g116 7% 
; 6114 011 1 ! TABLE OF CONTENTS: 
; 419 0114 1! 
: 116 0115 1 
: 117 0116 1 FORWARD ROUTINE 
; 318 0117 (1 
3; («119 0118 1 ! Private entry points: 
: 120 0119 «+1 
s 32) 0120 1 SMGS$$GET_PASTEBOARD_ID, ! Find pasteboard id to match 
; \s¢ 0121 1 ' device name. 
Se. 0122 1 SMGSSMOVE_TEXT_TO_SCREEN_BUF, ' Map a ocoate virtual display 
; iss BS? : ! to the WCB screen buffer. 
; \s8 B16? } SMGS$SET_PHYSICAL_CURSOR; ! Set physical cursor on screen 
; 128 0127 1! 
; ‘$2 0128 1 ! INCLUDE FILES 
: 130 at 44 1! 
3 431 0130 1 
; 32 0131 1 REQUIRE ‘RTLIN:SMGPROLOG'; ' defines psects, macros, tcb, 
; W353 0209 1 ' web, & terminal symbols 
3; «6134 0210 1 
eae O211 1! 
$ 156 Osi¢ 1 ! EXTERNAL REFERENCES 
oar 0213 1! 
; 38 0214 1 
: «139 0215 1 EXTERNAL 
; iy psté ' PBD_L_COUNT, ! No. of pasteboards we currently have 
: 142 0218 1 PBD_A_PBCB : VECTOR CPBD_K_MAX_PB, LONG], 
; Fe O61? ' ! Tablé of addresses of PBCB's 
: 145 0221 1 PBD_V_PB_AVAIL : BITVECTOR CPBD_K_MAX_PB]; 
3; «146 0222 1 ! Bit vector or pasteboard id numbers in use. 
3: 147 BSS7 1 
; «148 0224 1 EXTERNAL ROUTINE 
; 133 8552 : LIBSGET_VM, ! Allocate heap storage 
B OST 0227 1 SMGSINSERT_CHARS, ' Insert char in virtual display buffer 
3 13¢ asso ' ! and cause output. 
s 934 0580 1 SMGSSFILL_WINDOW_BUFFER, ! Map all virtual display buffers to 
; 1g? bs3) : ! the window buffer for a given PBCB 
3 + 4 $4 : SMG$SFLUSH_BUFFER, ! Flush any pending output to terminal 
; 999 0235 1 SMGS$$FORCE_SCROLL_REG, ' Force scroll region to specified 
: 160 0236 1 ' Lines. 


Se Be Oe Be Oe Oe Oe Be BH Se Be Be Oe BH e Se SH Se Ge Se BH FH Se Se Se Se Se SH SH Se Se Se Se Se BH Se Se Se BH Se Se Se Se SH Se SESH SH Se Se Se Se SH oe Se St we 
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1-026 Declarations 14-Sep-19 9:42 SMGRTL.SRCJSMGDISINP.B32;1 (2) 1-01 
: «161 0237 ( 
3 166 8 34 1 SMGSSLOCATE_PP, ' Locate pasting packet that joins a virtual ( 
; 165 4 2 i display to a pasteboard. 
: 165 8 41 1 SMGSSMOVE_TEXT_TO_WINDOW_BUF, ! Map single virtual display to ( 
; 166 8 eg | i window buffer. 
: 168 0244 1 SMGSSOCCLUDE, ' Determine overlap between two rectangular ( 
>: 169 0245 1 | areas. ( 
; 170 6 ag SMGSS$MIN_UPD, ! Minimum output routine 
: ive 0948 } SMGSSPUT_TEXT_TO_BUFFER, ! Text to virtual display buffer 
: 174 0250 1 SMGSSREPORT_CHANGE_INSERT, ! Report change to physical 
3 if? 8523 : ' screen in insert mode. | 
: 177 $588 1 SMGSSREPORT_CHANGE _REPLACE; ! Report change to physical | 
s 178 0254 1 ' screen in replaec mode. 
3; 179 0255 1 
; 180 0256 1 EXTERNAL LITERAL 
3; 181 0257 1 
: 182 0258 #1 SMG$_FATERRLIB, ' Fatal error in Library procedure 
; «4183 0259 1 SMG$_INVARG, ! Invalid argument 
; «184 0260 1 SMG$_INVCOL, ' Invalid column number 
: 185 0261 1 SMGS$_ INVDIS.. ID, ' Invalid virtual o.99 ar id 
: 186 aseg 1 SMG$_INVPAS_ID, ' Invalid pasteboard i 
s 187 0263 1 SMG$_INVROW; ' Invalid row number 
: 188 0264 1 
; 189 0265 1 '<BLF/PAGE> 
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O36? 


o 
co 


MIMI MININNNININ 2 SS ahd 84> Bee ee hoe eo eee oe 
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30 

30 
3 30 
3 30 
3 30 
3 30 
3 30 
3 31 
3 31 
3 31 
3 31 
3 31 
4 31 
4 31 
4 31 
4 31 
4 31 
4 32 
4 32 
4 32 
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xS 
GL 
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BITL ‘SMGSS$GET_PASTEBOARD_ID - Get pasteboard id for device’ 
OBAL ROUTINE SMGS$GET_PASTEBOARD_ID ( 
DEVNAM_LEN : REF VECTOR C,WORD], 
DEVNAM_ADDR 
PASTEBOARD_[D 


++ 
FUNCTIONAL DESCRIPTION: 


Try to find a pasteboard which is associated with the device 
name string provided. f match found, return pasteboard id. 
If not found, return SMG$_INVARG. 


CALLING SEQUENCE: 


ret_status.wlc.v = SMGS$$GET_PASTEBNARD_ID ( 
DEVNAM_LEN. rwu. rs 
DEVNAM_ADDR.rt.r, 
PASTEBOARD_ID.wlu.r) 


| FORMAL PARAMETERS: 


DEVNAM_LEN.rwu.r Address a word yet s Mint the Length of 
the device name string whose pasteboard 
id counterpart is sought. 

DEVNAM_ADDR.rt.r Address of a buffer containing the 
device name string whose pasteboard id 
is sought. 

PASTEBOARD_ID.wlu.r Address of the longword to receive the 


the pesteseece id that is allocated 
to the specified device name. 


i IMPLICIT INPUTS: 


Data pertaining to pasteboards currently known. 
IMPLICIT OUTPUTS: 


NONE 

! COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SMG$_WRONUMARG Wrong number of arguments 3 
SMG$_INVARG No pasteboard on file matches given device 


name string. 


! SIDE EFFECTS: 


NONE 


L 
PBCB : REF $PBCB_DECL; ! Address of a pasteboard 


9:42 SMGRTL.SR 
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3 control block. 
SSMGSVALIDATE_ARGCOUNT (3, 3); ! Test for right no. of args 


14 
If we don't have any pasteboards yet, it can't match. Return error. 


IF ,PAD_L_COUNT LEQ 0 
RETURN ( SMG$_INVARG); 


NOue 


14 
Loop through all the pasteboards we've got trying to match name. 


gaer | FROM 0 TO .PBD_L_COUNT -1 


BEGIN ! Loop thru pasteboards 
a = .PBD_A_PBCB [.1]) NEQ 0 


BEGIN valid pasteboard addre 
ee cee Len’ (03 EQL .PBCB CPBCB_W “DEVNAM. LEN] 


BEGIN ! Lengths m 
IF CHSEQL ( DEVNAM. EN C0), Length 
-DEVNAM address 


' 
NAM- ADDR i 
-PBCB CPBCB_W_DEVNAM_LEN], | Length 
PBCB CPBCB_T_BEVNAMIJS i address 


BEGIN : Match found 
-PASTEBOARD_ID = 
RETURN ( SSS CNORMALS ; 
END; T Match found 
END; ! Lengths match 
END; ' A valid pasteboard address 
END; ! Loop thru pasteboards 


'¢ 
i If we fall out of loop, none of our pasteboards are associated with 
4 the given string. Return error code. 


Aaa (SMG$_INVARG) ; 


0009 00 00 09 09 09 00 0000 SI SI SI SI NINN NN NNR AA AAAAAA AMIN 
ODONAVME WN $C OONAOUE WN (OO ODNOAUE WN SOO ONOUES WI —O0O@ 
loleleleleleleleleleleleleleolelslolelelelelolelelelelelelelolelelel el ele oleae! ole] a) 
WWWWNWAWANNWNAA AANA NWN ANION NAN N ANNAN AIANNAWO 
PBAEXQ_EQXEQPMMMAGI GI BB BE AAA AANWonor) 

FWP O OONAU EWN 0 ODNAU EWR CO OMONOYV SW —OOW 


= POPINIPINININI AE VIA A ANNI  & AAI PON Ponononony 


1 End of routine SMG$$GET_PASTEBOARD_ID 


-TITLE SMGS$SDISPLAY_INPUT SMGS$SDISPLAY_INPUT - Input s 
upport routines 
-IDENT \1-026\ 


-EXTRN PBD_L_COUNT, PBD_A_PBCB 


-EXTRN PBD- ‘ “PB AVAIL CIBSGET_VM 
EXTRN SMGSIRNSERT 
EXTRN SMGSSFILL Qinoow BUFFER 
-EXTRN SMGS$SFLUSA_B ree 

XTRN SMGSSFORCE- StRO 


E 

“EXTRN SMGSSLOCATE_PP LL CE SMove TEXT_TO_WINDOW_BUF 
“EXTRN SM MCSSOCCLUDE SMGSSMIN_UPD 

-EXTRN SMGS$PUT_TEXT_TO_BUFFER 
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1-026 SMG$$GET_PASTEBOARD_ID = Get pestebeore id for 18-8 08- 1 3be 99: 89; 242 SMGRTL.SRCJSMGDISINP.B32;1 . (3) 
~EXTRN SM GSSREPORT. CHANGE _ INSERT 
-EXTRN SMGS$SREPORT— ee Mata 
~EXTRN SM +e 1b igs “3h Shick ayes 
-EXTRN SMG$~ NUDIS 
-EXTRN SMGS$- NVBRS moSAGS. TAWROW 
~EXTRN SMGS$ = INVPAS x10 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


007¢ 00000 .ENTRY SMGSSGET_PASTEBOARD_ID, Save R2,R3,R4,R5,R6 ; 

03 6c 91 i CMPB (AP), #3 : 

08 13 0000 BEQL 1 : 

50 000000006 8F 00 00007 MOVL § #SMG$_WRONUMARG, RO : 

04 O0O00E RET : 

56 000000006 00 DO O000F 1$: MOVL §PBD_L_COUNT, R6 : 

2—E 15 00016 BLEQ 4$ : 

55 01 CE 00018 MNEGL #1, I : 

25 11 0001B BRB F 

54 0000000060045 D0 0001D 28: MOVL § PBD_A_PBCBLIJ, PBCB ; 

1B 13 00025 BEQL 3$ F 

12 AG 04 BC B81 00027 CMPW a@DEVNAM_LEN, 18(PBCB) ; 
14 12 0002C¢ BNEQ 3$ ; 

12 AG 00 08 BC 06 BC 2D 000¢E CMPCS @DEVNAM_LEN, @DEVNAM_ADDR, #0, 18(PBCB), - : 
18 AG 00036 24 (PBCBY ; 

08 12 00038 BNEQ 3 ; 

0c BC 55 DO 0003A MOVL 1, @PASTEBOARD_ID ; 
50 01 00 0003E MOVL #i, RO : 

04 00041 RET ; 

D7 55 56 F2 00042 3$ AOBLSS R6, I, 2$ ; 
50 000000006 BF DO 00046 4$ MOV #SMG$_INVARG, RO ; 

04 0004D RET : 


; Routine Size: 78 bytes, Routine Base: _SMGSCODE + 0000 


; 290 0365 1 '<BLF/PAGE> 


Pe ee 
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1-026 SMGSSMOVE TERT T0_SCREEN BUF Shove text from d 12-Sep-1984 90:89:05 UMGRTL SRe SMGDISINP.B32;1 (4) 
; 3 66 1 ZSBTTL "SMGSSMOVE TEXT _TO_SCREEN_BUF = Move text from display buf. to screen buf.’ 
; 29 67 1 GLOBAL ROUTINE SMGSSMOVE_TEXT_TO_SCREEN BUF ( 
: 294 0368 1 PP : REF BLOCK C,BYTEJ 
; 64y 0369 1 )z 
; 34) 0370 1 !++ 
: 97 0371 1 ! FUNCTIONAL DESCRIPTION: 
; 298 0 6 7 
: 444 03735 1! This routine moves text from the buffer located at 
; 500 0374 1! -DCB CDCB_A_TEXT_BUFJ into the screen text buffer. 
: 30) 0375 1! Array of Byfes af .DCB C DCB_A_ATTR_BUF J] describe the 
; 302 0376 1! rendition this text must assume and is moved into the 
; $07 Sarr 6 3 associated screen attribute buffer. 
; 304 0376 1! er ale if the alternate character set buffer at 
; 305 0379 1! -DCB CDCB_A_CHAR_SET_BUF] exists, it must be mapped into the 
; 306 0380 1! screen alternate character set buffer. 
; 30? 0381 1! 
; 308 O86 1 ! CALLING SEQUENCE: 
: 309 0383 1! 
3 419 Bee : ret_status.wic.v = SMGSS$MOVE_TEXT_TO_SCREEN_BUF ( PP.rab.r) 
s Sie 0386 1 ! FORMAL PARAMETERS: 
‘ae it 0387 1! 
> 6314 0388 #1! PP.rab.r Address of pasting packet. 
s 315 0389 1! 
; 316 0390 1 ! IMPLICIT INPUTS: 
3 «(Sir 0391 1°! 
; 518 baa6 “a NONE 
3 S19 0393 1! 
: 320 0394 1 ! IMPLICIT OUTPUTS: 
3 Bel 0395 1! 
: wee 0396 1! NONE 
s Bes 0397 1! 
a 6BeS 0398 1 ! COMPLETION STATUS: 
3 Se? 0399 1! 
; 63ee 0400 1! SS$_NORMAL Normal successful completion 
$ Ser 0401 1! 
; 328 bcos 1 ! SIDE EFFECTS: 
; ie 0403 1! 
3; 300 0404 1! NONE 
e+) 0405 1 !-- 
: 332 0406 1 
3 333 0407 2 BEGIN 
> 334 0408 2 LOCAL : 
.-. oa 0409 2 DCB : REF $DCB_DECL, ' Addr of virtual display 
: 336 0410 2 ' control block. 
s sor 0411 2 PBCB : REF $PBCB_DECL, ! Addr of pasteboard control 
; 338 0412 2 ' bloc ’ 
3 ia 0413 2 WCB: REF $WCB_DECL, ' Addr of window control block 
: 340 0414 2 FROM INDEX, ! Index into source buffer 
; (341 0415 2 TO_IRNDEX; ! Index into destination buffer 
: s0¢ Reig 2 
: 34 0417 2 DCB = .PP CPP _A_DCB ADDR); 
> 344 0418 PBCB = .PP CPP~A~PBCB_ADDR); 
3 az oh 4 wCB = .PBCB CPBtB_A_QCB); 
: 347 be54 FROM_INDEX = .PP FPP _W_FROR INDEX); 
3 45 0422 TO_INDEX = .PP [PP_W-TO_INDEX); 
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1-026 SMGSSMOVE WTERT_ TO_SCREEN_SUF = Move text from d 14-Sep-1984 09:42 SMGRTL.SRC Sheol P.B32;1 (4) 
: 349 ps 3 
; 350 424 '4 
3 35) 0425 i Before diverging on two copying patie. check to see if we are going 
3 26 0426 i to get involved with alternate character set buffers. If one exists 
3 3 0427 ' in the DCB but does not yet exist in the WCB, we have to allocate 
; $22 Be $ i _one for the WCB and initialize it. 
; $28 9430 _* if .D0CB te A_CHAR_SET_BUF J a0 AND 
; $26 O23 e A wCB B_A_SCR_CHAR_SET_BUF J he 0 
; $28 Be § Es “BEGIN ! Alloc. and init. window alternate char. set buffer 
; 361 bc3s ; STATUS; ! Status of LIBSGET_VM call 
; 365 0437 4 IF NOT (STATUS = LIBSGET_VM ( use (WCB. _BUFSIZE], 
; 364 0438 4 B CW°B_A “SCR_ CHAR_SET_BUFJ)) 
; 365 0439 3 EN 
; 366 0440 3 RETURN (.STATUS); 
; 367 0441 3 
: 368 bees 3 CHSFILL ( 0, .WCB CWCB_L BUFSIZE], -WCB CWCB_A_SCR_CHAR_SET_BUF J); 
: 369 0443 2 END; ' alloc. and init. window alternate char. set buffer 
; 370 0444 2 
$s 6 0445 2 !+ 
s ire 0446 2 | Check to see if we can do it with a single CHSMOVE or whether we must 
, S75 0447 2 do it a row at a time. 
3 6374 0448 2 !- 
; 375 0449 2 IF .PP CPP_V_CONTIG] 
: 376 0450 2 THE 
s ser 0451 3 BEGIN ! Can be done in single move 
: 378 ott 3 
; S79 0453 3 ' Move text 
; 380 0454 3 ! 
; 381 0455 3 CHSMOVE ( ee CPP_L_MOVE SIZE] ' Length 
; 382 0456 3 (DCB “A_TERT_BUFJ + .FROM_INDEX, i source | 
; 383 0457 3 “UCB tuce A-SCR_TEXT_BUF] + .TO_INDEX); ! dest. 
: 384 0458 3 
>; 385 0459 3 ' Move attributes 
: 386 0460 3 ! 
3 3e7 0461 3 CHSMOVE ( .PP CPP_L_MOVE rie ' Length 
; 388 046¢ 3 .DCB CDTB-A_ATT wits + .FROM_INDEX, i source | 
5 $00 Beez ; .WCB CwCB- A_ SCR_ RR “BUF J + » e INDEX); ' dest. 
: 331 Ree? 3 Move alternate character set buffer pieces, if necessary 
; 33 0467 i IF .DCB COcB_ A_CHAR_SET_BUF] NEQ 0 
: 394 0468 3 THEN 
; 395 0469 4 BEGIN Ose * alternate character set 
; 5396 0470 4 CHSMOVE ( PP CP MOV ' Length 
; 397 0471 4 PCB Deb” A_CHAR_SET_BUF] + .FROM_INDEX, | Source 
: 398 047 4 WCB CWCB-A-SCR CHAR? SET_BU Fj + .TO_ INDEX); ' Dest. 
; 399 047 ; END; ' Map alternate shirae tar set 
; 400 0474 END ! Can be done in single move 
; 401 0475 3 
; 40 47 ELSE 
; 40 47 ; 
: 404 0478 BEGIN ! Must be done row at a time 
: 405 0479 LOCAL 
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RETURN (SS$_NORMAL); 
END; 


10 
Input support routines 1b-se 1984 
EEN_BUF oPove text from d 1a-Sep- 1984 93: 534 
DCB_COLS, ! = .DCB COCB_W “ib Eot 84 
wCB_COLS; ! = ,WCB CWCB-W"NO-COLS 


i Extracting out these two words as local longwords makes 
t compiler generate better code for this critical Loop. 


DCB_COLS = .DCB COCB_W_NO_ COLSJ; 
WCB-COLS = .WCB LWCB[W-NO-COLS); 


INCR R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE) 


BEGIN ! For all rows in this display 
Move text 


CHSMOVE ( PP CPP 

UCB W 
Move attributes 
CHSMOVE ( PP CPP_W_MOVE_LENGTH], 


COCB_A_ATTR_BUF] + .FROM_INDEX, ! 
UCB ite A “Str” ATTR_BUFI + "TON INDEX); i 


0 E 


T 


W_MOVE_LENGTH], 
DUBTA_TERT_BUFJ + .FROM_IND i 
CBTASCR_TEXT_BUF) + .T0_ EDEN): 


FROM_INDEX = .FROM_INDEX -OCB_COLS; 
TO_ INDEX = ,TO_INDEX + (WCB COLS; 
ENB; ‘For all rows in this display 


'4 
q Move alternate character set buffer pieces, if necessary. 


iF .DCB CDCB_A_CHAR_SET_BUF] NEQ 0 
THEN 


BEGIN ! Map alt. char. set buffer 
FROM_INDEX = .PP CPP_W_FROM_INDEX); 
TO_LINDEX = .PP CPP_W_TO_INDEX); 


INCR R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE] 


PP_W_M 
~ ~CRAR SET_BUF] + .FROM_INDEX, 


FROM_INDEX = .FROM INDEX + .DCB_COLS; 
10, INDEX = TO. OnADEX + ,WCB-COLS; 

END; ’ ! Map alt. char. set buffer 
END; ' Must be done row at a time 


AX=-11 Bliss-32 V4 
SMGRTL.SRCJSMGDIS 


ove LENGTH], Lengre 
R ROHAR” “SET_BUF] + .TO_INDEX);! y nol 


oo Breer mm.aA 


! End of routine SMGSS$MOVE_TEXT_TO_SCREEN_BUF 
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1-026 SMCSSMOVE TERT TO. SCREEN BUF > Rove tent from d 1ecep-1984 $4:69502 — Pemont ede fsmen cide aS2-1 Poge 1S] 


; Routine Size: 199 bytes, Routine Base: _SMGSCODE + 004E 


; 459 0533 1 '<BLF/PAGE> 
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SMGSSDISPLAY_IN SMGSSDISPLAY_INPUT = Input support routines 1b-Se 1984 00:27:47 AX-11 Bliss-32 V4.0-74 Page 13 SAC 
1-026 SMGSSSET_ PHYSICAL. CURSOR - Set physical cursor 122865-1984 99:69:25 SMGRTL.SRCJSMGDISINP.B52;1 - (5) 1=( 
; 461 0534 1 ZSBTTL 'SMGSSSET PHYSICAL CURSOR = Set physical cursor’ . 
; 46 0535 1 GLOBAL ROUTINE SMGS$S$SET_PAYSICAL_CURSOR ( DISPLAY_ID, ; 
; 46 0536 1 PASTEBOARD_ID, ‘ 
> 464 0537 1 OUT _BUFFER, ; 
; 465 0538 1 OUT BUFFER LEN : REF VECTOR C,LONG), ; 
> 466 0539 1 REMAINING TOLS, 
; 467 0540 1 DESIRED_ROw, 
; 468 0541 1 DESIRED_COL 
; 469 0542 1 )= 
: 470 0542 1 i++ 
: 4 B2e¢ : FUNCTIONAL DESCRIPTION: 
: 47 0546 1 Causes the set physical cursor sequence to be deposited in the 
> 474 0547 1 specified buffer. 
> 475 0548 1 
; 476 0549 1 If the terminal we are about to do input from is one with a 
3; 477 0550 1 settable scrolling region, we make sure that the scrolling 
3 rye bee, : region covers the whole screen. 
; 480 0 38 1 If the desired row and column are not specified, the current 
; 481 0554 1 cursor position within the virtual display are assumed. 
> 482 0555 1 REMAINING COLS is set to the number of columns that will be. 
; 483 0556 1 visible within the interval from the indicated cursor position 
> 484 0557 1 and the first column which is no longer within this display. | 
; 485 0558 1 This allows the caller to control inputted strings from running 
; 486 0559 1 outside of the virtual display. aa 
: 487 0560 1 If REMAINING_COLS is zero, the desired position corresponds to a 
; «488 0561 1 spot on the Screen which is currently occluded by another 
; 489 0 6¢ 1 virtual display. 
; 490 05635 1 
; «(491 0564 1 ! CALLING SEQUENCE: 
> 492 0565 1 
: 493 0566 1 ret_status.wlc.v = SMGSSSET_PHYSICAL_CURSOR ( 
> 494 0567 1 DISPLAY _ID.rl.r 
> 495 0 1 PASTEBOARD_ID.rl.r, 
; 497 0 1 OUT _BUFFER_LEN.ml.r, 
; 498 0 1 REMAINING _COLS.wl.r, 
: 499 0 1 C,DESIRED_ROW.rl.r] 
; 200 8 \ C,DESIRED_COL.rl.rJ) 
; 206 3 : FORMAL PARAMETERS: 
3 2Re 8 : DISPLAY_ID.rl.r Display id of virtual display. 
; 208 : PASTEBOARD_ID.rl.r Pasteboard id. 
: 508 0 1 OUT_BUFFER.rl.r Address of a buffer in 
: 509 0 1 which to place the set cursor eogvence.. 
5 319 8 ’ This buffer should be at least 15 bytes. 
; Pi 0 1 OUT_BUFFER_LEN.ml.r Address of a word which 
3 313 0 1 contains the current length of OUT_BUFFER. 
: «514 0 1 It will be updated to reflect length of 
; a2 8 ! the set cursor sequence added. 
s $i¢ 0 1 REMAINING_COLS.wl.r Returned number of visible columns 


SMGSSDISPLAY_IN SMGSSDISP 
1-026 § 
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AY_INPUT = Input support routines 16-Sep-1984 00:27:47 AX-11 Bliss=-3 
HYSICAL_ CURSOR - Set’ physical cursor 12-8 8=1Re 99:85:05 EMGRT SREISH 
n 


me 


COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
SMGS_INVDIS_ID Invalid Display Id 
SMG$_INVPAS_ID Invalid Pasteboard Id 


218 933) ' available on the physical screen at 
19 236 : this point which are entirely within 
259 059 ' the specified virtual display and are 

2 1 bege } not occluded by another virtual display. 

5 g 0596 : C,DESIRED_ROW.rl.rJ Desired row number within the virtual 
524 0597 ' display to which the physical cursor 
525 0598 ' should be postioned. If omitted, the 
526 0599 ' current cursor row in this virtual 
2st Bene display is assumed. 
262 pete : C,DESIRED_COL.rl.rJ Desired column number within the virtual 
530 060 ! display to which the physical cursor 
531 0604 : should be postioned. If omitted, the 
236 0605 : current cursor column in this virtual 
53 0606 ‘ display is assumed. 
534 0607 : 
535 0608 ! IMPLICIT INPUTS: 
536 0609 ‘ 
061 ' NONE 
0611 : 
061 IMPLICIT OUTPUTS: 
NONE 
} 
i 


fe teat ° ol ok al ealesbval sb al al al sl al pe oP oP ar oP oe or oF oP ie, ee, 
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537 0 
538 
539 ¢ 
540 061 
541 0614 
542 0615 
543 0616 
544 0617 
545 0618 
546 0619 
547 0620 = i 
548 0621 SMGS$_INVROW Invalid row specified 
549 0622 SMG$_INVCOL Invalid column specified 
550 0623 
551 0624 SIDE EFFECTS: 
552 0625 
553 06° NONE 
554 0627 -- 
555 0628 
556 +494 BEGIN 
557 0630 BUILTIN 
558 0631 NULLPARAMETER; 
559 B63¢ 
560 063 LOCAL : 
561 0634 STATUS, ! Status of subroutine calls ; 
5 § 0635 ROW, ! Row of interest -- in virtual display 
5 0636 COL, ' Column of interest -- in virtual disp. 
564 0637 DCB: REF $DCB_DECL, ' Addr of display control block 
8° p638 PBCB : REF $PSCB_DECL. : Addr of pasteboard control 
' block. 
567 0640 WCB : REF $WCB_DECL, ! Addr of window control block 
568 0641 PP =: REF $PP_BECL; ! Addr of pasting packet 
ans 
14 bee SSMGSVALIDATE_ARGCOUNT (5, 7); ! Test for right no. of args 
278 BOsg SSMGS$GET_DCB (.DISPLAY_ID, DCB); ' Get DCB addr. 
574 064 SSMGSGET"PBCB ( .PASTEBOARD_ID, PBCB) ; i Get PBCB addr. 
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SPLAY_INPUT ut support routines 16-Sep-19 27:47 AX-11 Bliss-32 v4 P 15 
PHYSICAL CURSOR - Set physical cursor 14-Se + 138 99:89:03 SMGRTL SREISHGD ISIN NP, 5 2;1 mag (5) 


WCB = .PBCB CPBCB_A_W(B); 


+ 


If we are reading from a VT100 (i.e., a device with a settable 
scrolling region), “y force the physical paren rae Fees to be the 


whole screen. If‘w didn't do this, the user might be aryine to bo 


jololeololololo) 4 
AAAS O 
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575 

576 

577 : 

578 ' 

579 ' 

580 : 

581 ! into the last Line of a virtual display which might coincide with t 
286 06 ! bottom line of a scrolling region. As he types the <CR> to terminate 
58 06 ! his input, the virtual display will scroll out from under us because 
584 06 ' of the PeCRD<L FD echoed by the terminal drive 

585 06 ! This way, the only wey he can get into trouble is if he tries to 
586 06 ' input into the last physical Line of the screen. 

587 0660 !- 

588 0661 

26? B99 !ee#® SHOULD CHANGE WITH TERMTABLE SUPPORT 

591 0664 IF .?8CB CPBCB_B_DEVTYPE] EQL vT100 

592 0665 THEN 

593 0666 BEGIN ! Scroll region check 

594 0667 IF -PBCB CPBCB_W_TOP_SCROLL_LINE] N OR 

ee? Ree PECB CPBCB_W_BOT_SCROLL_LINEJ NEQ ' DBCB CPBCB_B_ROwWS) 

597 0670 NBEGIN ! Set scroll to whole screen 

598 0671 LOCAL 

599 0672 STATUS: 

600 0673 IF NOT (STATUS = SMGSSFORCE_SCROLL_REG ( 

601 0674 -PBCB, 

603 0676 comes -PBCB CPBCB_B_ROWS])) 
605 pers RETURN .STATUS; 

‘+ 

607 0680 i Flush out this transaction separately. We don't what it 
60 0681 i to become part of the cursor ees ine oe natn which our 
or g08 Z caller may want to output a second tim 


if .PBCB CPBCB_V_BUF_ENABLED] 


_SMGSSFLUSH BUFFER ( .PBCB); 
' Set scroll to whole screen 
END; °! Scroll region check 


'¢ 
i If this display is not pasted to this pasteboard, quit -- but flush 
a the buffer on the way out anyway. 


— (STATUS = SMGSS$LOCATE_PP (.DCB, .PBCB, PP)) ! Get PP addr. 
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BEGIN 
ae -PBCB CPBCB_V_BUF _ENABLED] 


SMG$$FLUSH BUFFER ( .PBCB); 
Serum § (STATUS); 
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ROW = (IF NOT NULLPARAMETER (DESIRED_ROW) THEN ..DESIRED_ROW 
ELSE .DCB CDCB-W_CURSOR_ROW)); 


aw 


a 


Bee Be Oe Re Oe Oe Oe Oe BH Se Oe SH Oe Oe BH BH He SHH SHH Se PHS OH Ose Oe OHO Se Be SH Se Be HSE SHSe Be SH Se Se SH Oe Be OHS Oe we BH Oe Oe BH ee oe 


Bem IN SMG 
1-02 


8 11 
SSDISPLAY_INPUT - input support routines 16-Sep- ~13%6 09: scree AX=11 Oi iegeze Ye Oe ee 
6 SMGSSSET_PHYSICAL_CURSOR = Set physical cursor 14-Sep-1984 13:09:42 SMGRTL.SRCIJSMGDISINP.B352;1 
; § g 0705 ¢ 
; 6 88S COL = (IF NOT NULLPARAMETER (DESIRED_COL) THEN . + goes inet. COL 
; ? ¢ 444 ELSE .DCB CDCB~W_CURSOR_COLJ); 
; 636 0709 SSMGSVALIDATE_ROW_COL ( .ROW, .COL); 
; 637 0710 
; 638 0711 
; 639 Bris i per torn remaining column calculation. 
; 640 071 
; 641 0714 S. IF .PP CPP_V_OCCLUDED) 
> 64 0715 THEN 
: 64 0716 BEGIN ! Remaining number of col. calculation. -occluded case. 
> 644 0717 LOCAL 
; 645 0718 TEMP : BLOCK (8,BYTE], ' Tenporery representation of 
; 646 0719 3 ! area of input Line in pasteboard 
: 647 0720 3 ' coordinates. 
: oe 44 ; CURR_PP : REF S$PP_DECL; ! Addr of a pasting packet 
: 650 $758 3 Identify a rectangular area that consists of the part of the 
; 651 0724 3 i Line bounded by ROW and COL and the right end of the same 
3 $26 $7s2 3 { Line. This represents the maximum allowable input area. 
; 654 0727 3 TEMP CDCB_W_ROW_START] = + ROW + .PP CPP_W_ROW] -1; 
; 655 0728 3 TEMP CDCB-W_NO_ ROWS) = 
; 656 4044 3 TEMP COCB-W_COC_START] = tot + .PP CPP_W_COL] - a 
; 657 0730 3 TEMP CDCB~W-NO_COLS] = .PP CPP_W_MOVE~LENGTH) 
: 658 0731 3 ( .cOL = TPP CPP_w_ tol} + 2; 
: 659 0732 3 
; 660 0735 3 1+ 
; 661 0734 3 ! Check the rectangle isolated above against the projections of 
; 662 0735 3 ' all virtual disp ‘ys on this same foscensers which may occlude 
: 663 0736 3 : pati or all of this input rectangle. The most resticted 
3; 664 0737 3 ! Length of the input Line is what we return to our calito. 
; 665 0738 3 !' We start with the one pasted next in the chain (if any). 
; 666 0739 3 Hed 
; 667 0740 3 CURR_PP = .PP CPP_A_PREV_PBCB); 
; 668 0741 3 OMTLE .CURR_ PP NEG PBCB CPBCB_A_PP_NEXT] ! were 8 more displays 
3; 669 0742 3 D0 i remain 
; 670 0743 4 BEGIN ! Overall loop 
s 671 0744 4 LOCAL 
; 672 0745 4 PP_BASE : REF $PP_DECL; ! Base address of current 
; 673 0746 4 ! pasting packet 
3 674 0747 4 
: 675 0748 4 PP_BASE = .CURR_PP - ,PP ~PBCB_QUEUE _OFFSET; 
: 676 0749 4 ' STince Ehe queue headers for this art 
3: 677 0750 4 ! of the chain are not at relative 0 in 
; 678 0751 4 ! the pasting packet. 
3; 679 ars 4 
; 680 0753 4 IF .PP_BASE CPP_W_MOVE_LENGTH] NEQ 0 
: 681 0754 4 THEN es 
; 682 0755 5 BEGIN ! Display visible 
: 683 0756 5 OCAL 
3: 684 0757 5 OVERLAP : BLOCK (8,BYTE], ! Representation of 
; 685 8725 5 ' overlap between input 
3; 686 759 «5 ' Line an 
3; 687 0760 5 ! higher-pasted virtua: 
; 688 0761 5 ! display. 
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SAGSSDISPLAY IN SMGSSDISPLAY_INPUT - inpu : se ti Ses AX-11 Bi lege V4.0-74 Page 17 
-026 SMGSSSET_PHYSICAL_CURSOR = Set physical cursor 14-Sep-1984 15:09:42 SMGRTL.SRCIJSMGDISINP.B52;1 (5) 
; 689 Pee TEMP1 : BLOCK (8,BYTE], ! Representation of. 

; 690 76 : current virtual display 

> 691 0764 ! in pasteboard 

; 69 0765 ! coordinates. 

; 69 B708 2 NEW_DCB : REF SDCB_DECL;! Addr of display control 

; 694 076 ' “lock currently involved. 

; 695 0768 5 

; 696 0769 5 NEW_DCB = .PP_BASE CPP_A_DCB_ADDRI; 

; 697 0770 5 

; 698 0771 5 TEMP1 CDCB_W_ROW_START] = .PP_BASE CPP_W_ROW]; 

: 699 Ores 5 TEMP1 [DCB_W_NO_ ROWS) = .NEQ DCB C DTB_W_NO_ROWS); 

; 700 0773 (5 TEMP] CDCB_W_COC_START] = .PP_BASE CPP_wW COLI; 

; 701 0774 5 TEMP? CDCB_W_NO_COLS] = .NE@_DCB DCB_@_NO_COLS); 

; 70 0775 5 

; 70 0776 5 ‘+ 

; 704 0777 5 ! If the virtual display ota Psy big at is bordered, 

: 705 0778 #5 ' it will have a ei goer footprint in the pasteboard 

; 706 0779 5 ' buffer than its dimensions alone. Adjust for the 

: 707 0780 5 ' increased size of the foot print. 

; 708 0781 5 le 

; 709 1414 5 IF .NEW_DCB CDCB_V_BORDERED) 

; 710 0783 5 THEN 

s 7h 0784 6 BEGIN 

: 712 0785 6 TEMP1 CDOCB_W_ROW START] = .TEMP1 CDCB_W_ROW START] - 1; 
> 713 0786 6 TEMP1 CDCB"W-NO_ ROWS) = .TEMP1 CDCB_W_NO ROWS] + 2; 
; 714 0787 6 TEMP1 Co¢B-W_CoL START] = .TEMP1 CDCB_W_COL_START] - 1; 
: 715 0788 6 TEMP1 CDCB[W-NO_COLS] = .TEMP1 CDCB_W-NO_COLS] + 2; 
: 716 0789 5 END; 

Pe ats 0790 5 

; 718 0791 5 IF SMG$SOCCLUDE ( TEMP, ! The input Line ; 

; oY 444 5 TEMP{,! The higher-pasted Gi splay 

; 720 0793 5 OVERLAP) ! Overlapping region (if any) 
3 fel 0794 5 THEN 

: Tee 0795 6 BEGIN ! ee 

3. 723 0796 6 IF .TEMP COCB_W_COL_START] GEQ 

> 724 0797 6 -OVERLAP COCB_w COL_STARTJ AND 

: es 0798 6 .TEMP COCB_W_COC_STARTJ LEQ 

: 726 0799 6 OVERLAP COCB_W_COL_START] + .OVERLAP CDCB_W_NO_COLS] - 1 
s fer 0800 6 THEN 

: 728 0801 7 BEGIN ! Requestes start pos. occluded 

: 729 Bans 7 REMAINING COLS = 0; 

; 730 0803 7 F .PBCB CPBCB_V_BUF_ENABLED) 

s 75) 0804 7 THEN 

s f3e 0805 7 SMGSSFLUSH_BUFFER ( .PBCB); . 

; 733 0806 7 RETURN (SS$_NORMAL); | *#* Should this be a 

3 6734 0807 7 ! failure status 7??? *** 
: 735 0808 7 END ' Requested start pos. occluded 

: 736 0809 6 ELSE : , 

s for 0810 7 BEGIN ! Tail end of input pos occluded 

>; 3 0811 7 '+ ; ; 

; (3 pets 7? ' Truncate length of input Line down to the part 
: Se pala 4 that is not occluded. 

; eee 0815 7 TEMP COCB_W_NO_COLS] = .TEMP1 CDCB_W COL START] 

: 74 0816 7 - .TEMP C(DCB_Q_COC_STARTI; 
3 7446 0817 7 IF .TEMP COCB_W_NO_COLS] LEQ 0 

3 6745 0818 7 THEN 


D 11 
SMGSSDISPLAY_IN SMGS$DISPLAY_INPUT - input support routines 19~3e0~ 138% 90 ares pet Bliss-32 Yeie5 "88 
1-026 SMGS$SET_PHYSICAL_CURSOR = Set physical cursor 14-Sep-1984 13:09:42 SMGRTL.SRCJSMGDISINP.B32;1 
H be 0819 BEGIN 
3; 76 0820 ad te COLS = 0; 
; 748 0801 IF .PBCB CPBCB_V_BUF_ENABLEDJ 
; 749 08 ¢ 8 THEN 
; 750 08 8 SMGSSFLUSH_ BUFFER ( .PBCB); : 
See) 0824 8 RETURN (SS$_NORMAL); ! *** Should this be a 
3 P26 0825 8 ! failure status 77? *** 
Se + 0826 7 END; ; 
: 754 0827 6 END; ! Tail end of input pos occluded 
; 609 0828 5 END; ! Overlap 
s 6 0829 4 END; ! Display visible 
,. for 0830 4 
; 228 0831 4 + 
; p99 peas 4 ! Walk the chain backwards, from the current packet back to 
; 760 0833 4 1 the head of the chain -- since the most recently pasted 
: 4 te ? displays are at the head of the chain. 
; res 0836 4 CURR_PP = .PP_BASE CPP_A_PREV_PBCB]; 
> 764 0837 3 END; !“Overall Toop 
> 765 083e 3 
; 766 0839 3 1+ 
; 767 0840 ; ! If we fall out of the bottom of the loop, the requested row 
; 768 0841 : and column is not occluded, and some non-zero portion of the 
: 769 0842 3 ' remainder of the row is visible as well. Return its length to 
; 770 0843 3 ' caller. 
; fri 0844 3 !- 
3 772 0845 3 -REMAINING_COLS = .TEMP CDCB_W_NO_COLS); 
: 7 0846 3 : 
3; 774 0847 3 END ! Remaining number of col. calculation. - occluded case 
Te be: 0848 3 
; 776 0849 2 
3: ¢@77 0850 3 BEGIN ! Not occluded case 
; 778 0851 3 «REMAINING COLS = .PP CPP_W_MOVE_LENGTH] - .COL + 1; 
; 779 0836 Z END; ! Not occluded case 
; 780 0853 2 
; «781 0854 2 !+ : 
; 782 0855 2! ALL that remains to to set the cursor where requested -- both in the 
J aH bate § virtual display and on the physical screen. 
: 785 0858 2 DCB CDCB_W_CURSOR_ROW] = .ROW; 
; 786 0859 2 DCB CDOCB_W_CURSOR COLJ = .COL; 
; 787 0860 2 WCB CWCB"W-CURR_COR_ROW) = .ROW + .PP CPP_W_ROW) - 1; 
; 788 0861 2 WCB CWCB_W_CURR_CUR_COL] = .COL + .PP CPP_W_COLJ - 1; 
3; «6789 Bag 2 
; 790 0865 2 !+ , 
; 791 0864 2 ! Don't output the sequence to the terminal. Store the set cursor sequence 
s 92 0865 2! in the specified buffer (if it and its length provided), and let the 
3; 795 0866 2 ! caller output the sequence if desired. 
: 794 0867 2 ! (SMGSINPUT will store this sequence in its Q10 buffer.) 
; 795 0868 !e 
3; 796 0869 
3; «797 P 0870 SSMGSGET_TERM_DATA(SET_CURSOR_ABS, 
; 798 P 0871 ¢ -WCB CWCB_W_CURR_CUR_ROW) 
: 799 087¢ WCB CWCB7W7CURR7CUR~COLJ); 
; 800 087 § 
: 801 0874 ! Move it to the OUT_BUFFER 
; 802 0875 2 


SMGSSDISPLAY IN SMGSSDISPLAY_INPUT = Input support routines 
~026 SMCSSSET PHYSICAL CURSOR © Set” ° 
803 087 CHSMOVE (.PBCBCP L - 
She 0877 ; OUT_BUFFER_LEN P55- 
806 $859 RETURN (SS$_NORMAL) ; 
807 0880 1 END; 
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08 000000006 


00 
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7:47 AX=-11 Bliss-32 V 
09: 42 SMGRTL. SROISMGD IS 


gr TERS 9 PTE 


! End of routine SMGS$SET_PHYSICAL_CURSOR 


SMGSGET_TERM_DATA 


SMGSS$SET_PHYSICAL_CURSOR, Save R2,R3,R4,R5,- 


R 0 

Sngs G6$$FLUSH_BUFFER, R10 
#5, (AP), DIFF 

DIFF, #2° 
#SMG$_WRONUMARG, RO 


Q@DISPLAY_ID, RO 
56(RO), SDISPLAY_ ID 


68(RO), #17 
ASMG$_INVDIS_ID, RO 


@DISPLAY_ID, DCB 
@PASTEBOARD _ ID, RO 


4 
rf PBD_L_COUNT 


RO, PBD_V_PB_AVAIL 
#SMG$_INVPAS"ID, bg ° 


PBD_A PBCBIRO], PBCB 
8(PBCB) 

1g(PBCBS “a 
244(PBCB), #1 

6$ 

95(PBCB), RO 

RO. 246(PBCB) 
95(PBCB), -(SP) 

Pac 

Wa OMGSSFORCE_SCROLL_REG 
STATUS, 7$ 


12(PBCB), 8$ 
#1, SMGS$SFLUSH_BUFFER 
PBCB 


bcs 
#5, 6 aie _PP 
RO, TUS 
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Set physical cursor 1 


t support routines 
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H 11 
SMGSSDISPLAY_IN SMGSSDISPLAY_INPUT = Input support routines 16-Sep- 138% 99: $505 AX-11 Oi ieasae V4.0-74 Page ¢¢ 
1-026 SMGS$SET_PHYSICAL_CURSOR = Set physical cursor la-Sep- 1984 9: SMGRTL.SRCJSMGDISINP.B32;1 “5) 
OOFC C4 OF 30 PUSHAB 252(PBCB) ; 
000000006 : FB 4j CALLS #6 SHoSG T_TERM_DATA : 
; 48 BLBC_ = STATUS : 
0c BC 0104 66 28 00 48 31$:  MOVC3 (R6), @260(PBCB), @OUT_BUFFER + 0876 
10 Be 66 DO 0025 MOVL (R6), @OUT_BUFFER_LEN : 0877. 
50 01 DO 00256 328 MOVL #1, RO + 0879. 
04 00259 33$ RET + 0880 
; Routine Size: 602 bytes, Routine Base: _SMGSCODE + 0115 


; 808 0881 1 !<BLF/PAGE> 


—n 
13 


t support routines 14.0 -Sep-19 


SRESSOISPLAY. IN SMGSSDISPLAY_INPUT = ingu ee 90: 6: :47 
SMGSSSET_PHYSICAL_CURSOR = Set physical cursor 14- = 8ep-19 4 9:42 

; 810 pees 1 END ! End of module SMGS$DISPLAY_INPUT 

; 811 08 1 

; 812 0884 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _SMGSCODE 879 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, 

3 Library Statistics 

Re ee ieee eae ts Lr = Reena Symbols -------- Pages 

§ File Total Loaded Percent Mapped 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 4 0 581 

3 ~$255$DUA28:CSMGRTL.OBJIRTLLIB.L32;1 36 0 8 

; mitt CSMGRTL.OBJJSMGLIB.L32;1 469 61 13 38 


COMMAND QUALIFIERS 


AX 
SM 


CON, 


Pro 
Ti 


“11 Bliss-32 V 
GRILY SRC Sheol 


PIC, ALIGN(2) 


cessing 


NP B82; 31 


Page 23 
ee 


oS SSPEMECR OLY SEL, INE TEA, OPT SMISE )/HOTRACEL 184, 560s SHORES INP /CB.J9OR IE: SNGBIS IMP MSRC$:SMGDISINP/UPDATE=(ENH$: SMGDISINP 


Size: 879 code + 0 data bytes 
Run Time: 00:21.6 

Elapsed Time: 01:14.5 

Lines/CPU Min: 2453 


Lexemes/CPU-Min: 19076 
Memory Used: 231 pages 
Compivation Complete 
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